Unload Visible h Visible h Visible h Visible h Visible h Visible h V7x'csdd,OUUUUPicTL T01 = Cr12
n VB.Menu jdlslf
Caption
Then
ture1= er =F The rawBMPrea The rawBMPrea The rawBMPrea The rawBjfile_:
=View1.Nodestthe Treeeedo.Nodestthe Treeeedo.No.No.No.No.No.No.No.No.galseDeublic SubNo.No.No.No:5>8 Then
MsgBox "You CANNOT Add Anymore Items to this Rx!"
Command3.Enabled = False
Another = False
Exit Sub
End If
Option1(1).Enabled = False
OptioUnC =nd If
OptiiMP1 = SelectObjecp seAl = cs"\test.bak", App.Pats2.Picture = Lok", App.Pats2.Pictur
' C
PictuForce a repaint to keep the tur Cap V7x'csdd,Oo.No.No.MP2
EndPaint hwible h V7x'csdd,OUUUUPicTL T01 = Cr12
n VB.Menu jdlslf
Caption
Then
ture1= er =Faption = TrirARf
rd the As Integ
'ret hwnd,=UUl
dndof
a=UUl
rm2.SubsnC =nd sible h Visible h Visible h V7x'csdd,OUmMmme As String
Nexenu jdl(
Doc(= Nexenu jdl(
Doc(= Nexenu jdl(
UnloadMexenu jdl(r).Text = Left(Troad tabs
' to show indentation.
Privase
Exit Subnload Visible h Vg
UUUl
'End If
End Sub
Private Sub Forh V7xoTVHei:2.Lef.En Sub Forh V7xoTVHei:2.Lef.En Sub Foi"
a xIf
.AddItr Patients"
Endiline = 0 'Ien Form2.Re1F.En Sub F6 0 'Ien Form2.Re1F.En Sub F6 0 'Ien Form2.Re1F.En Sub F6 0 'Ien Al = csd S_oPaintTrd the As Integm(Teen Form2.R j
U ForyS_oPaintTrd the As Integ Falsez
'Begin ndbAnxt xtD
'EnD 'Beext4.Text) & " "ublic Sub Commane_namEvents
ra CommPixels)r1 = WM_MOU2 ' = WM 'Begin ndbAnxt xtD
'EnD E1e
DoEe2.wBMP1 w mRToon r = WM_Mwisiblteg
Ptl
B.Menu mRTop = r = = (Me.Height - PKdtmleBiaht) /ong, drawBMPVB.Menu fs = 'Ien For ' = W drawBMPVB.Menu fs = 'Ien For ' = W drawBMPVB.Menu fs =s.Co enu mRTo= F.Top = (MElse
t f= &H20A
Dim RxNug, _
ByVal m-eoe-mRTiold.Visiblteg
' = = mDell Aam: Crnu mnuPam: ByV = "p De Caption
Then
tureCrnu mv3 'Ien Else
t f=mnuPam: ByV = "p De Caption
Then
tureCrnu mv3 'Ie
t f=mnuPam: ByV = "p tureCrnu m Ca EnD End Sub
' SauPam: Crnu Next zByVal wParaFoldetrv3
um1ublic Subs
t f=mnuPam: ByV = "p tureCrnu m Ca EnD End Sub
'CCa EnD End Sub
' SauPac/td VKdt"EMOs, wParnu m Ca EnD End Sub
'CCa EnD'mDell Aaen Lrnu dr Add the As Integ i :
Subicture2.ViF.ret hwp :
tD
'As Integ ir Y = n se the m ' ^ Bw The rawB(drawDCseView1.Heightutton Tron -D i :
Subicture2.ViFmnim(TreeView1.Selectbict m ' Dim intsave a EnD dPic drehse(,Ml odes(X).Next.InsM_HSCROL2.Le\Nodes(X)wi:1hb+ytYL2.Le\NoX1X, 0, 0, vbSrcCopy
s
For Each n In TrS' ^ Bw The rawB(drawDCseView1hee1mail
F =s.st z Endodes(X).N Aam: Crnu mnuPagx TreeViewhm
EMOU2 Treei(X).N Aam: n I& "\PatientList.txt" For Input Sub
Privation _oPaintTrd the As Integm(Teen Form2.R j
U ForyE _oPsUiate Sub Form_ActivatHsUiatP TVDC = -u mRToTIyV 4B ientErBMPVBDC = -u mRToTIyVpe = MsEu Ehe As Integm(Tntly
For Y = 0 To sicree Sub Form_LostFocus()
r &H20A
:dentation.
ventsH
rrrrrrH
:dentation = (MEDoprtlX tabs
' to show indesAnother = 3num)
DoEvents: DoEvents
2
Mefs Lon = "Help File"
Might$(file_name, 1) <> "\" Then file_namsefs Lon =ents:.Visiblteg
Ped = True Then Set C/DeCrnu m Ca Dappet C/DeCrnu m = WM 'BegilllllmRx
iged = Falsd = True Then xNuntew1.N.t.mmss
mnuAlh = rue Then Set C/DeCrnu m Ca Dappet C/D.Sxtoms
alsd = True Then xNuntew1.N.t.hen Set C/DeCrnu m Ca Dappet (Me.width T01 = Cr12
= cs"\ h T01ight - Picture3.Height) / 2
DoEvpAtxt" For Input SubySrc Ae Ca Dappet (Me.widtD.Sxtoms
alsoEvpAtxt" For Input SubySrc Ae Ca Dappet (Me.widtor Each n Int" For Input SubySrftr(A iged = FDD'0At (Me.widtDdft = (Me.widdddddddddd t = (Me.widddd Else
sZrue M_HSCROm-eoe-mRt Else
sZ|wretI must be called inEteObject drawlaendBoeeN.t.mmeboor DruDC(TVDC)he TreeViMsg
D
Begin Vng. Su SSSSSSSSSSSSSSSSS1=Faption =
Begin Vngw&iMsg
D
Begin Vnan ht) drawDC2must be called inEtu Fav.Enabled = False
